CURSO PRATICO 1 4 DE PROGRAMA^AO DE COMPUTADORES 



PROGRAMAgAO BASIC - PROGRAMAgAO DE JOGOS - CODIGO DE AAAQUINA 



CUlTUfVIl 



Vol. 1 



NESTE NUMERO 



N." 14 



OS COMANDOS PEEK E POKE 

Como examinar a mem6ria do computador. Fun- 
cionamento dos comandos PEEK e POKE. Apren- 
da a utilizar o POKE para colocar caracteres na tela. 
Leitura do cronometro do Spectrum, Cores no TRS- 
Color. Como controlar o Apple II 261 



COMO MOVIMENTAR AVENTUREIRO 

Apresentagao e descrigao dos locals. Como saber 
onde jogador se encontra, apos cada movimen- 
to. Apresentagao das diregoes possiveis. Vaiidacao 
da resposta do jogador. A movimentagao do aven- 
tureiro 270 



DATILOGRAFIA: ALFABETO COMPLETO 




PLANODAOBRA 

"1 N PUT" e uma obra editada em fascicules semanais, e cada 
conjuntode 15 fascicules compoe um volume. A capa paraenca- 
dernagao de cada volume estara k venda oportunamente. 

COMPLETE SUA COLE^O 

Exemplares atrasados, ate seis meses ap6s o encerramento da coleipao, poderao 
ser comprados, a pregos atualizados, da seguinie forma: 1, Pes$oalm«nte — por 
meio deseu jorraleiro ou dirigindo-se ao disiribuidor local, cujo enderef o po- 
der^ ser facilmente con$eguido junto a qualquer jornaleiro de sua cidade. Em 
Sao Paulo os enderegos sao: Rua Brigadeiro Tobias, 773 (Centre); Av. Industrial, 
1 1 7 (Santo Andre); e, no Rio de Janeiro; Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderao ser solicitados exemplares atrasados tambim por carta, que deve 
ser enviada para Dl N AP — DisI ribuidor Nacional de Publica?6es — Niimeros 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — Sao Paulo. 3. Por telex — Utilize o n? (01 1) 33670 ABSA. Em Portu- 
gal, OS pedidos devem ser feitos a Distribuidora Jardim de Publiea?6es Ltd. — 
Qta. Pau Varais, AzinhagadeFetais — 2683, Camarate — Lisboa;Tel. 257-2342 
— Apartado 57 ~ Telex 43 069 J ARLIS P. 

Nao envie pagamento antecipado. O atendimentr sera feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deveri ser efetuado ao se retirar 
a encomenda na Agencia do Correio. Atenpio: Apos seis meses do encerramento 
da cole(;ao, os pedidos serao atendidos, dependendo da disponibilidade de es- 
toque. Otw.: Quando pedir livros, mencionc sempnc o titulo e/ou o autor da obra, 
alem do numero da edifao. 



Como acrescentar ao programa as teclas das filei- 
ras superior e inferior. Posigao dos dedos nas te- 
clas de outras fileiras. Como mudar as pal&vras para 
treinamento. Pratique com todo o alfabeto 276 



COLABORE CONOSCO 

Encaminhe seus comentarios, criticas, sugestoes ou reclamatjoes 
ao Servipo de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SP. 



cJi^i 


Editor 

VICTOR CIVITA 



REDAfAO 

Diretore Editorial: lara Rodrlgues 

Editor cbefe: Paulo de Almeida 

Editor de texto: Claudio A.V. Cavalcanti 

Editor de Arte; Eduardo Barrelo 

Cfaefede Arte: Carlos Lui2 Batista 

Auittentea de Arte: Ailton Olivcira Lopes, Dilvacy M.Sanlos. 

Jose Maria de Oliveira, Grace A, Arruda, 

Monica Lenardon Corradi 

Secretari* de Redafao/Coordenadora: Stefania Crema 

Secretarios de Reda^o: Beatriz Hagstrom, Jose Benedito 

de Oliveira Damiio, Maria de Lourdes Carvalho, Marisa Soares 

de Andrade. Mauro de Queiroz 

SctretarioGrafico: Antonio Jose Filho 



COLABORADORES 

Consaltor Editorial Respontavel: Dr. Renato M.E. Sabbatini 

piretor do Niideo de Informatica Biomedica da 

Universidade Esfadual de Campinas) 

Execu^o Editorial; DATAQUEST Assessoria em 

Informatica Ltda, Campinas, SR 

Tradu^o: Maria Fernanda Sabbatini 

Adaptafiio, programatao e redafio: Abilio P;dro Neta 

Alui'sio J. Dornellas de Barros, Marcelo R. Fires Therezo, 

Raul Neder Parrelli 

CiMrdenatao geral: Rejane Felizaiti Sabbatini 

Editora de Texto: Ana Ucia ft de Lucena 

Assislenle de Arte: Dagmar Basics Sampaio 

COMERCIAL 

Diretor Comercial: Roberto Martins Silveira 

GereDte Comercial: Flavio Ferrucio Maculan 

Gerente de Circula^o: Denise Maria Mozol 

PRODUt:AO 

Gerente de Pradufao: Joio Stungis 

Coordenador de linpressao: Atilio Roberto Bonon 

Preparador de Texto/Coordenador Eliel Silveira Cunha 



Preparadorcs de Texto: Ana Maria Dilguerian, Anionic 
Francelino de Oliveira, Karina Ap. V. Grechi, Levon Yacubian. 
Maria Teresa Galluzzi, Paulo Felipe Mendrone 
Revimr/Coordeoador: Jose Maria de Assis 
Revisoras: Concei^ao Aparecida Gabriel. Isabel Leile de 
CamargD, Ligja Aparecida Ricetlo. Maria do Carmo Leme 
Monteiro. Maria Uitza Simdes. Maria Teresa Martins Lopes. 



© Marshall Cavendish Limited, 1984/85. 

© Editora Nova Cultural Ltda., SSo Paulo, 

Brasil, 1986. 

Edi^ao organizada pela Editora Nova Cultural 

Ltda. 

(Artigo 15 da Lei 5988, de 14/12/1973). 

Esta obra foi composta na AM Produ^'Oes 

Graficas Ltda. e impressa na Divisdo Grafica da 

Editora Abril S.A. 




I 



Os comandos PEEK e POKE permitem 
examiner e alterar valores diretamente 
na mem6rta do computador. E voce 
pode us^-los sem dificuldade, 
jncorporados a urn programa BASIC. 



Muitas vezes, usamos o computador 
sem nenhuma necessidade de saber co- 
mo sua mem6ria funciona, Quando es- 
crevemos, por exemplo, LET A = 67, 
o computador por si s6 seieciona posi- 
i;6es de mem6ria livres, chama estas po- 
sicoes de "A" e nelas armazena o valor 
67. Se digitarmos, em seguida. PRINT 
A, o computador sabera exatamente on- 
de encontrar o valor pedido — o pro- 
cesso e automatico. So e necessario in- 
dicar ao computador as posi^des de me- 
moria que devem ser usadas quando 
programamos em c6digo de mdquina. 



Mas existe em BASIC uma maneira 
de examinar a memoria do computador, 
para localizar os valores ait armaxena- 
dos, E possi'vel. lambem. armazenar va- 
lores apropriados na memoria, a fim de 
alterar o comportamento da miquina. 

As ferramenias BASIC para isso sao 
PEEK e o POKE. PEEK permite que 
se examine o valor armazenado na me- 
moria e POKE possibiliia o armazena- 
mento de urn determinado valor. 



COMO FUNCiONAM PEIK E POKE 



Os compuladores TRS-80, TRS-Co- 

lor, MSX, bem como os ZX-8I e Spec- 
trum de 48K, possuem 65 536 posi^oes 



de memoria endere<;aveis; portanio, 
64K, O Apple e o TK-2000, em suas di- 
versas versSes. apresentam diferentes ta- 
manhos de memoria. Uma parte dessa 
memoria e a ROM , ou seja, a Mem6ria 
Apenas para Leitura, Os conteudos da 
ROM sao fixos; assim, embora possa- 
mos examini-la usando PEEK, nao po- 
demos utilizar o POKE para armazenar 
novos valores ou alterar os que nela ji 
existem. O restante da mem6ria e a 
RAM — a Memoria de Acesso Aleato- 
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rio, ou Mem6ria para Leitura e Escri- 
ta, como tambeni 6 conhecida — , na 
quaJ se armazenam as varidveis e os pro- 
gramas BASIC. Podemos usar PEEK 
para examinar c POKE para armazenar 
OS valores ali conlidos. 

Este programa permite que voce exa- 
mine qualquer posit^ao de meni6ria 
ROM ou RAM do computador: 



mazene apenas bytes simples, ou seja, 
quaJquer numcro eriire e 255. 






10 INPUT "ENDEHECO. . ." jA 

20 LET N=PEEKCA) 

30 PRINT 'CONTEUDO. . . ' iN 

40 GOTO 10 

Entre com o mimero que desejar, de 
a 65 535, e voce vera o que existe na 
posigao indicada. Pode ocorrer, por^m, 
que ao usar PEEK para examinar deter- 
minadas ireas da memoria, voce rece- 
ba como resultado um valor ficti'cio e 
nao o vaior real laexisteme. Os conteii- 
dos da RAM dependerao sempre do que 
voce estiver fazendo com o computador; 
apenas os conteiidos da ROM sao fixos, 

Repare que os numeros sao sempre 
valores inteiros entre e 255 e, em he- 
xadecimal, deO a FF. Isso significa que 
todos constituem bytes simples (um byte 
contem um mimero hexadecimal de dois 
dfgitos)- Cada posi^ao de memoria con- 
tem um byte, nao sendo possivel guar- 
dar qualquer niimero maior em uma po- 
si?ao de memoria, Se voce somar 1 a FF, 
em hexadecimal, obteri 0100. Como es- 
te resultado inclui dois bytes, serd pre- 
cise armazena-lo em duas posicoes de 
membria; 01 em uma posi?ao e 00 em 
outra. 

O programa que apreseniamos a se- 
giiir permite que se empregue o coman- 
do POKE para guardar numeros na me- 
moria do computador. NesteestSgio, ar- 
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10 PRINT "CONTEUDO. 

) 

20 INPUT'NUMERO. . , 

30 POKE 30000, N 

40 PRINT"M0V0 CONTEUDO' ; PEEK (30 

000) 

45 PRIKT 

SO GOTO 20 

O programa apresenta primeiro o 
conteiido da posi^ao de memdria e, em 
seguida, usa o POKE para armazenar ali 
o numero tndicado. Depois, mostra uma 
vez mais o conteudo, para provar que 
o numero realmente foi armazenado, 

Podemos trocar a posicao de mem6- 
ria para qualquer outra posi^ao que de- 



sejarmos. Repare que nada aconiece se 
tentarmos usar POKE na ROM e nao 
causaremos nenhum dano ao sistema se 
o fizermos. Utilizado em certas areas da 
RAM, por^m, o POKE pode provocar 
algum desarranjo> mas nada fatal ~ 
simplesmente desliguc a mdquina por 
um momento, para reiniciar a memoria. 
Tente agora utiiizar o POKE para ar- 
mazenar um numero maior do que 255 
e veja o que acomece. Nos computado- 
res TRS-Color e Spectrum, vocd obteri 
uma mensagem de erro, ja que s6 hi lu- 
gar para um byte em cada posicio de 
membria. 
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ESCREVA NA TELA COM POKE 



Examinando os mapas de memdria i 
apresentados no artigo da pdgina 174,, 
voc6 verificari que uma pon;ao da me- 
mdria e dedicada ^ exibi?ao em tela, Sc 
usar POKE para armazenar certos nii- 
meros nesta area, os caracteres realmen- 
te aparecerSo na tela. Para ver determl- 
nado caractere, armazene codigos AS- 
CII, empregando o POKE, nos compu- 
tadores TRS-80, TRS-Color e TK-2000, 
No Apple, OS valores ASCII produzirclo 
caracteres piscantes; para obter carac- 
teres normals, some 128 ao t;6digo AS- 
CII. Nos micros da iinha Sinclair e 
MSX, utiliza-se um met o do diferente do 
descrito abaixo. No TK-2000, a organi- 
zapao da tela nao permite tal exibicao. 
Tente as seguintes iinhas: 
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TABELA DE CODIGO ASCII 

Cada caractere que o computador uti- 
liza possui um c6digo numerico, e mui- 
tos modelos adotara um c6digo padrao 
denominado C6digo ASCII — iniciais 
de American Standard Code for Irifor- 
mation Interchange (Codigo Padrao 
Americano para Intercambio de In- 
formavao). 

Estes codigos sao os numeros usados 
em CHR$ e ASC (ou CODE no Spec- 
irum). CHRS converte o niimero em um 
caractere, enquanto ASC ou CODE faz 
o inverse, convertendo um caractere em 
seu c6digo numerico. 

Assim, quando o computador guarda 
lima palavra, o que armazena 
c c6digo ASCII do caractere. j t^mH'' 

Ascn, 



Nitmero 
da cbdigo 



Caract«>e 

ASCIt 



Numero 
de cddigo 



35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



65 



66 



% 



67 



68 



75 



76 



77 



78 



Caractere 
ASCII 



32 


space 


62 


> 


33 


1 


63 


7 


34 


" 


64 


@ 



39 


' 


69 


E 


40 


( 


70 


F 


41 


) 


71 


G 


42 


* 


11 


.H 


43 


+ 


12 


1 


44 




74 


J 



M 



49 


1 


79 





50 


2 


80 


P 


51 


3 


81 


Q 


52 


4 


82 


R 


53 


5 


83 


S 


54 


6 


84 


T 



55 


7 


es- 


U 


56 


8 


se 


V 


57 


g 


87 


w 


58 




88 


X 


59 


* 


89 


Y 


60 


< 


90 


Z 


61 


= 
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D 

POKE 15360,65 

D 

POKE 1024,65 

H] 

HOME: POKE 1024,193 

A letra A deverA aparecer no canto 
superior e^querdo da tela. 

No TRS-Color, se a tela tiver rolado 
antes de uma tentativa de armazenar ca- 
racteres pelo POKE, eles nao aparece- 
rao em lugar nenhum. Assim, primeira- 
mente limpe a tela, digitando CLS e, de- 
pois. < RETURN > ou < ENTER >. 

Voce deve estar se perguntando qual 
a vantagem de usar o POKE para colo- 
car caracteres na tela, ja que dispomos 
de comandos tao eficientes como o 
PRINT A, PRINT TAB ou PRINT®. 
De fato, o PRINT ^ normalmente o m^- 
lodo mais fScil e conveniente para po- 
sicionar os caracteres. Mas M casos em 
que o emprego do POKE se mostra van- 
tajoso. Por exempEo, se usarmos o 
PRINT para escrever na ultima posigao 
da tela, esta sempre rolard; com o PO- 
KE, ao contr^rio, nao haverd nenhum 
problems. Voce pode imaginar o quan- 
to esta caractertstica i litil, sobretudo em 
jogos, quando queremos mover um ca- 
ractere por toda a tela. 



OS CARACTERES NO SPECTRUM 



No Spectrum, as coisas sSo um pou- 
co difcrenies, pois nSo se pode usar o 
POKE para armazenar caracteres sobre 
a tela. Um caractere € feito de pontos 
de uma matriz de oito por oito. E cada 
linha deve ser armazenada pelo POKE 
separadamente, at^ se completar o ca- 
ractere. 

Felizmente, as formas dos caracteres 
sao armazenadas na ROM; assim, pode- 
sc usar o PEEK nesta por^ao da mem6- 
ria, a fim de examinar cada linha e, en- 
tao, exibi-la na tela com o POKE. 

O programa que apresentamos a se- 
guir utiliza o comando POKE para exi- 
bir a letra A no canto superior esquer- 
do da tela. 



10 LET dest-163e4 

20 FOR a-15880 TO 15887 

30 POKE deBt,PEEK a 



40 LET dest-de3t+256 
50 NEXT a 

A linha 10 define o enderego da pri- 
meira linha dos caracteres da tela, O 
FOR.. .NEXT permite o acesso k ROM, 
onde o caractere esta armazcnado e a li- 
nha 30 imprime a primeira linha deste 
caractere na tela. A linha 40 incremen- 
ta o endere^o da tela em 256, dando 
acesso k pr6xima linha, logo abaixo da 
primeira. 

O m^todo funciona, mas, por ser um 
tanto lento, quase sempre e mais vanta- 
joso usar o PRINT AT ou PRINT TAB 
no Spectrum. 



USO 00 PEEK NA ROM E NA RAM 



Quando executamos o primeiro pro- 
grama que examina a mem6ria do com- 
putador, obtivemos apenas niimeros en- 
tre e 255. Mas muitos desses niimeros 
sao, na realidade, c6digos de letras em 
ASCII, alguns dos quais formam pala- 
vras ou mesmo sentengas completas. Se 
voc§ n5o conhece os ccidigos ASCII, ve- 
ja a tabela da pdgina 263. 

O programa seguinte le toda a mem6- 
ria ROM do computador e converte os 
niimeros em caracteres, antes de impri- 
mi-los na tela: 



10 FOR A-0 TO 16383 

20 LET N-PEEK A 

30 IF N>31 AND N<IZ7 THEN PRINT 

CHR$N; 
40 NEXT A 



a 



10 FOR A-&H8000 TO LHBFF 

20 N-PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 

CHRS(N) ; 
40 NEXT A 



rm 



10 FOR A-LHO TO 1H7FFE 

20 N-PEEK CA] 

30 IF N>31 AND N<127 THEN PRINT 

CHRS CN) ; 
40 NEXT A 



a] 



10 FOR A - 53248 TO 65535 

20 N - PEEK {Al 

30 IP H > 31 AND N < 127 THEN 

PRINT CHRS (N) ; 
40 NEXT A 



As llnhas 10 e 40 determinam a repe- 
ti^So do processo em toda a mem6rta; 
a linha 20 examina cada posi^ao, usan- 
do o POKE, e a linha 30 converte o mi- 
mero em um caractere e o imprime. Es- 
ta linha ainda limita o intervalo de nii- 
meros que serao convertidos, evitando 
que o computador imprima cddigos de 
controle ou simbolos graficos. 

Para o TRS-80, use o programa do 
TRS-Color com a linha 10 do progra- 
ma do Spectrum. 

Pode-se tambdm imprimir o conteii- 
do da RAM do mesmo modo, bastan- 
do trocar os endere^os de memdria da 
linha 10. Os enderefos dados abaixo im- 
primem parte da irea em que os progra- 
mas BASIC estao armazenados, permi- 
tindo que voce veja como o seu prdprio 
programa esta guardado na memoria. 
Convem desligar o computador por um 
segundo antes de rodar este programa, 
para evitar que a RAM permanega car- 
regada com restos de outros programas. 
Aqui estd a nova linha 10: 



10 FOR A-23755 TO 65000 
10 FOB A-16510 TO 30000 

Q 

10 FOR A-tHlEOO TO LHIFOO 

a 

Use FOR 17385 TO 32767 para sis- 
temas de 16K e os finais 49151 para 32K 
e 65535 para 48 K. 



B] 



10 FOR A - 2048 TO 32767 



fffi 



10 FOR A-I.H800Q TO &.KF37F 

Experimente examinar outras areas 
da RAM da mesma maneira. 



APLtCACOES 



At^ aqui examinamos a memoria do 
computador e usamos POKE para 
exibir caracteres na tela. Isso nos deu 
uma boa nogao de como o PEEK e o 
POKE funcionam, mas nao do quanto 
s3o iJtets. 



Para as aplica?6es mais importantes, 
precisaremos examinar posi^oes especi- 
ficas de mera6ria. No Spectrum, a po- 
sifao de mem6ria 23609 controla o sora 
que o teclado faz quando se pressiona 
uma tecla. Nomialmente, eia contdm 0, 
que provoca um pequeno die; mas, com 
um numero maior — que pode chegai 
a 255 — , obtdm-se um longo bip. PO- 
KE 23609,80 faz um ruido razo^vel. 

As possibilidades de uso do PEEK e 
do POKE dependem principalmente do 
computador que voce tern. 

Rctomando o exempio anterior: os 
tedados dos demais computadores nao 
fazem ruido quando uma tecla 6 pres- 
sionada; nao t€m posi^ao de mem6ria 
que controle o som do teclado. Assim, 
um efeito que requer cinco ou seis PEEK 
ou POKE em determinado computador 
pode ser obtido com uma palavra-chave 
BASIC em outra mdquina. 

6 Apple faz um bom uso do PEEK 
e do POKE. O Spectrum, o TRS-80 e'o 
TRS-Color utilizam-no ocasionalmen- 
te. No MSX o uso destes comandos e 
mats raro. 

Aqui estao algumas aplica<;des para 
o seu computador. 



Jd vimos um POKE modificar o som 
do teclado. O POKE seguinte altera o 
espafo de tempo que uma tecla leva pa- 
ra iniciar a auto-repeti9ao — o que 6 utij 
em jogos de velocidades, nos quais uma 
tecla precisa ser pressionada para mo- 
ver um caractere, Nesle caso e nos se- 
guintes, X i uma variivel que devemos 
ajustar por meio do comando. 

POKE 23561.x 

Normalmente, quando se liga o com- , 
putador, X e ajustado para 35. Assim, 
use um numero menor que 35 para di- 
minuir o intervaio de espera e um nu- 
mero maior para obter um intervalo 
mais iongo. 

Pode-se tambdm alterar a repeti^to 
automitica com: 

POKE 23562, X 

Este tempo X e, em geral, igual a 5, 
Assim, use X = 1 para uma auto- 
repeti^ao rdpida e X = 25 para uma 

bem lenta. 



CONTROLE DE TEMPO 



O Spectrum nao tern acesso ao cro- 
Qometro intemo via teclado. Para utili- 
zA-lo, precisaremos usar o PEEK na me- 
m6ria. O tempo i armazenado como 



tres bytes em tr^s posi(;6es consecutivas 
de mem6ria, 

PRINKPEEK 23672+256*PEEK 23673 
+65536*PEEK 23674] 

... informara quantos cinquenta avos de 
segundo seu Spectrum est^ ligado des- 
de o ultimo NEW. Pressione NEW pa- 
ra relniciar o cronometro ou POKE 
em cada uma das tres posicoes. 



MAIS POKE 



Apresentaremos aqui mais duas apli- 
ca?6es do POKE, que serao liteis quan- 
do voce quiser escrever programas para 
outra pessoa. A primeira delas assegu- 
ra que todas as letras digitadas apare- 
cam em tipo maliisculo. 

POKE 23568.8 

Esta instru?ao e litiJ quando se pre- 
tende que todos os dados de entrada se- 
jam consistentes. Use POKE 23658,0 
para retornar ao normal. 

Uma outra possibilidade e a altera- 
(;ao do cursor para qualquer caractere 
do teclado — ou mesmo qualquer pala- 
vra-chave, dependendo do numero que 
foi usado no POKE: 

10 FOR X-1 TO 255 

20 POKE 23617, X 

30 INPUT aS 

40 NEXT X 

A linha 30 faz um INPUT a$ apenas 

para que o cursor aparefa na tela, Tao 
logo entre algum dado via INPUT, o 
programa mostrari o cursor seguinte. 
Os mais interessantes s^o aqueles por 
voltadeX = 200 at^ 230. Por exempio, 
X = 210exibe <CONTINUE> como 
um cursor, e X = 225 exibe um sinal de 
interrogacao. 



O PEEK e o POKE sao tamb^m uti- 
lizados para a auto-repetlgao. O TRS- 
Color normalmente n§o tern teclado au- 
to-rcpetitivo. Para mover objetos em jo- 
gos, por exempio, 6 preciso manter a te- 
cla pressionada, soltd-la muito rapida- 
mente, voltar a pressiona-la e, asskn, su- 
cessivamente. Uma maneira de evitar es- 
se cansativo procedimcnto i usar PEEK 
para verificar que tecla esti sendo pres- 
sionada, o que nos permite deixar o de- 
do sobre a tecla pelo tempo que qui- 
sermos. 

Esse m^todo jd foi empregado na 
secSo de Programagio de Jogos. Veja 
como funciona: quando presstonamos 



uma tecla, um cddigo numerico especial 
€ colocado em uma das seis posigoes de 
mem6ria. O PEEK checa, entao, estas 
posi?6es, para verificar que tecla esta 
sendo pressionada. O emprego deste re- 
curso e muito simples. O programa se- 
guinte, por exempio, usa teclas de cur- 
sor para desenhar na tela: 

10 PMODE 0,1 

20 PCLS 

30 SCREEN 1.1 

40 X-127rY-95 

50 IF PEEKC341)-223 THEN Y-Y-2 

60 IF PEEK(342)-223 THEN Y'Y+2 

70 IF PEEK(343)-223 THEN X-X-2 

80 IF PEEK C344) -223 THEN X''X+2 

90 IF X<0 OR X>255 THEN X*-255« 

(X<0) 

100 IF Y<0 OR Y>191 THEN Y — 191 

«(Y<0> 

110 PSET (X,Y,5> 

120 GOTO 50 

A tabela da pagina 265 mostra o cd- 
digo numerico gerado para cada tecla e 
a posJ(;ao de mem6ria em que elas sao 
armazenadas. Se, por exempio, pressio- 
nAssemos A, PEEK (339) seria igual a 
267. Podemos verificar, assim, de onde 
vieram os numeros escritos ap6s os 
PEEK nesse ultimo programa. 



TELA MULTICOLORIDA 



O programa seguinte traga iinhas de 
diferentes cores na tela. Colocando-as 
perto umas das outras, obteremos no- 
vos matizes. Voce pode pressionar qual- 
quer tecla durante a execugao do pro- 
grama, se quiser interromper o desenho 
e examinar o numero para determina- 
do matiz. 

10 PMODE 3,1: SCREEN 1,0:PCLS3 

20 FOR K-0 TO 255 

30 POKE 178. K 

40 LINE(78.46)-(178.146) ,PSET,B 

F 

50 IF INKEYSO"" THEN 80 

60 NEXT 

70 GOTO 70 

BO CLS; PRINT K 

A posigao de mem6ria 178 controla 
a cor do primeiro piano. Esta varia, em 
geral, de a 3 (4 cores), mas, se usar- 
mos o POKE para armazenar um valor 
maior que K=3, obteremos novas lis- 
tras coloridas, 

Utilizamos PSET na linha 40 porque 
estamos manipulando cores de primeiro 
piano. Para trabalhar as cores de piano 
de fundo, troque PSET por PRESET e 
substitua o valor 178 na linha 30 por 179. 

Parando o programa, poderemos 
examinar o valor de K para determinado 
matiz e, assim, usar esta cor em outros 
programas graficos. 




COMO ALTERAR A VELOCIDADE 



A possibilidade de aceierar o compu- 
tador e imeressanie, sobretudo, para jo- 
gos — vocS pode fazS-tos andar mais de- 
pressa se, por exempio, o jogador atin- 
gir um determinado niimero de pontes. 

Utilize o primeiro POKE para aceie- 
rar c o segundo para voltar ao normat. 

POKE 65495,1 
POKE 65494,1 

Pode-se usar qualquer niimero em lu- 
gar do I. pois o efeito ser& o mesmo, 

Exisle apenas um problema com es- 
tes POKE — como eles nao funcionam 
em qualquer processador, corre-se o ris- 
co de que o programa prejudique o sis- 
tema. Mas nao custa nada experimenta- 
los uma vez em seu computador. 

E, agora, se voce considera determi- 
nado jogo muito ripido, aqui estd uma 
maneira de desacelerar a saida na tela, 

POKE 359,60 

Para voltar ao norma!, use POKE 
359,67, mas nSo no CP-400 Color, pois 
ele desativa o retorno automStico ao 
modo texto. 



No Apple € possivel controlar a por- 
?ao da tela que iremos utilizar. O ende- 
ref o 32 cont^m a margem esquerda; 33, 
a largura mixima da linha; 34, o niime- 
ro de linhas da margem superior e 35, 
da margem inferior, Modificando os va- 
lorcs desses enderegos com POKE, 
pode-se programar a Janela de textos. E 
o que faz o programa seguinte, 

5 HOME : VTAB 5: HTAB 11 
,« 10 POKE 32,10: POKE 33,20 
|20 POKE 34,4: POKE 35,20 



30 PRINT "JANELA " ; 
40 GOTO 30 

Outra utilidade destes comandos i 
possibilitar uma "varredura do teda- 
do", verificando o valor contido na po- 
siijao - 16384 — sendo maior que 127, 
sabe-se que alguma tecla foi pressiona- 
da. Na realidade, esta posifao de mem6- 
ria contim o c6digo ASCII do caracte- 
re da tecla pressionada mais 128. 

Sempre que fizermos esse tipo de 
"varredura", devemos colocar o valor 
na posi?ao - 16368, para que uma no- 
va verificafao seja possivel. O desrespei- 
to a esta regra pode prejudicar seus pro- 
gramas. O programa que se segue exem- 
plifica a utilizagao desse recurso. 

10 HOME 

20 A - PEEK ( - 16384) ; POKE 

- 16368.0 

30 IF A > 127 THEN PRINT CHR 

S (A - 128> i 

4 GOTO 20 

O programa funclona como uma md- 
quina de escrever. Os caracteres corres- 
pondentes ks teclas pressionadas sao 
mostrados no video. 

O uso do PEEK tambto posslbilita 
a produ?ao de sons. Toda vez que veri- 
ficaraos o conteiido do enderevo 
-16336, um die e produzido. Fa?a uma 
experiencia, adicionando as linhas abai- 
xo ao programa anterior. 



30 ir A > 127 THEN 
$ (A - 128) ; : FOR I 
- PEEK C - 16336) : 



PRINT CHR 
- 1 TO 10 :X 

NEXT 



COMO ALTERAR A TELA 



O Apple pode mostrar texto e grdfi- 
cos de baixa e alta resolu^lo em duas 
"pdginas diferentes". Alguns POKE 
silo capazes de modificar rapidamente 
as caracteristicas da tela. 



POKE -16304,0 



Troca a tela de textos pela tela grifi- 
ca, sem limpar esla ultima. 

POKE -16303.0 

Troca a tela grdfica de qualquer tipo 
pela tela de textos, sem redefinifao da 
janela de textos. 

POKE -16302,0 

Permite a exibi?ao de grificos em tela 
cheia, ou seja, impede o aparecimento 
de texto nas quatro iinhas inferiores da 
tela grdfica. 

POKE -16301,0 

Troca a tela cheia por grdfico mais 
texto, ou seja, faz reaparecer as quatro 
linhas de texto na parte inferior da tela. 

POKE -16300.0 

Passa da pagina 2 para a pagina 1. 
Nao limpa a tela nem move o cursor. 

POKE -16299,0 

Passa da pagina I para a pigina 2, 
da mesma maneira. 
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POKE -16298,0 

Passa do modo grafico de alta reso- 
lU(;ao para o modo lexio, sem limpar a 
tela. 

POKE -1629?. 

Passa do modo texto para o modo 
grafico de alta resolu^ao. 



Como o BASIC do MSX e muito po- 
deroso, sao poucos os comandos PEEK 



PEEK e POKE de teclado do TRS-Color 



Enderspo 



Numero de c6digo 



191 



223 239 



247 251 253 254 



338 ENTER 







@ 



339 CLEAR 



340 



341 



342 



343 



U 



M 



344 



345 



7 SPACE 



W 



•\j -^3 



^U^^ 
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e POKE realmente liteis. 

O modo como este computador or- 
ganiza sua memdria de video impede 
que coioquemos caracteres diretamente 
na tela, usando POKE. Para isto, exis- 
te no BASIC do MSX o comando VPO- 
KE, bem como o correspondente 
VPEEK. Os 16 kbytes da memoria de 
video s6 podem ser acessados por meio 
desses dots comandos. 

O coraputador utiliza essa memoria 
nao so para mostrar caracteres e grafi- 
cos; parte dela armazena informagoes 
para o video, taJ como o padrao das le- 
tras do conjunto de caracteres. 

O modo como isso e feito — on se- 
ja, a organizatao da memoria de ima- 
gem — varia con forme o tipo de tela es- 
colhida pelo comando SCREEN. 

Para que nao tenhamos que decorar 
uma grande quantidade de endere^os de 
memoria. o MSX usa variaveis do sis- 
tema para guardar os enderegos. 

Vamos leniar entender esta organi- 
zacao. No modo texio de 40 colunas 
(SCREEN 0), a variavel BASE (0) con- 
tem o enderego injcial de uma porgao da 
memoria denominada tabela de nomes. 
Qualquer valor colocado em uma das 
960 posi?6es, a partir deste enderego, fa- 
ra surgir na tela o caractere de codigo 
ASCII correspondente. Assim, o pro- 
grama seguinte enche a tela com o ca- 
ractere A, cu]o codigo e 65. 

10 SCREEN 

20 FOR I-O TO 959 

30 VPOKE BASE (0) +1.65 

40 NEXT 

Note que, para coiocarmos o carac- 
tere A na i-6sima posigao da tela, deve- 
mos usar VPOKE BASE (D) + 1,65. 

No modo texto de 32 colunas, BA- 
SE (5) contem a tabela de nomes e exis- 
tem 768 posic6es na tela. Assim, temos 
um programa analogo. 

10 SCREEN 1 

20 FOR I-O TO 767 

30 VPOKE BASE (5) +1,65 

40 NEXT 

O modo grifico de alta resolugao 
tamb^m possui uma tabeia de nomes, 
cujo enderefo inicial fica em BASE (10), 
com 768 posi?6es. O computador mul- 
tiplica por 8 o ntimero ali colocado por 
VPOKE. Em seguida usa o resultado 
dessa operagao para obter o padrao e as 
cores daquela posi^fao. O pa4rao dos 
pontes e armazenado em outra-parte da 
memdriade video, cujo enderefo inicial 
estd em BASE (12). Outra posigao de 
memdria e reservada para as cores dos 
pontes e seu inicio esta em BASE (11). 
Para entender melhor o processo, digi- 
I tc o seguinte programa; 



10 SCREEN 2 

20 FOR 1-0 TO 767 

30 VPOKE BASE(10}+I,0 

40 NEXT 

50 FOR 1-0 TO 7 

60 VPOKE BASEUD+I .RND<1)*256 

70 VPOKE BASEa2)+I,RNDCl)*256 

80 NEXT 

90 GOTO 50 

As linhas de 20 a 40 enchem a tabela 
de nomes com o nilmero 0. Este niime- 
ro e multiplicado por 8, dando 0. Isso 
significa que o computador ira aos oito 
primeiros enderecos a partir da posicio 
na tabela de padroes, para obter o pa- 
drao; e aos oito primeiros enderegos a 
partir da posigao da tabeia de cores, 
para obter a combinagao de cores des- 
tas posi?6es. Como ainda nao ha nada 
nas duas tabelas, nenhum desenho e fei- 
to a principio. 

As linhas de 50 a 80 preenchem as oi- 
to primeiras posiijoes, a partir do ende- 
rego 0, da tabela de padrSes com niime- 
ros aleat6rios. Fazem o mesmo com os 
enderepos da tabela de cores. Estes sao 
justamente os locals onde o computador 
vai buscar a cor e o padrao de posifoes 
da tabela de nomes que tenham o nu- 
mero 0. Como a tabela de nomes esta 
cheta de zeros, lodas as posifoes do ter- 
(;o_superior da tela assumirao a mesma 
cor e padrao simulianeamente, A linha 
90 repete o processo. 

Voce deve estar se perguntando pdr 
que efeito so foi obtido no ten;o su- 
perior da tela. A explicaijao esta no fa- 
to de que 255 e o maior valor que um 
enderefo pode center. Assim, o compu- 
tador procurara o padrao e a cor de um 
determinado enderego da tabela de no- 
mes da seguinte forma: o tergo superior 
da tela tern suas cores e padroes nos en- 
deregos de a 2055 das tabelas de cores 
e padroes; o tergo medio, dos enderegos 
de 2048 a 4096; e o tergo inferior, de 
4097 a 6143. Mude as seguintes linhas 
no programa anterior, para ver o mes- 
mo efeito no tergo medio da tela: 

60 VPOKE BASEtll>+I+2048,aND(l) 

«256 

70 VPOKE BASEC12)+I+2048,RND(1) 

*256 

No modo grifico de baixa resolugao, 
a tabela de nomes tern enderego inicial 
guardado em BASE (15). O niimero co- 
locado em uma das 768 posigoes desta 
tabela e multiplicado por 8, para que ob- 
tenhamos a posigao da tabela de cores 
em que estao armazenadas as cores da 
posigao. A tabela de cores tern endere- 
go inicial em BASE (17). Nao ha tabela 
de padroes. Mude as seguintes linhas no 
programa anterior, para compreender 
melhor o processo: 



10 SCREEN 3 

30 VPOKE BASE (15) +1.0 

60 VPOKE BASE{17)+I ,HND{1>*256 

Nas telas de texto, boa pane da me- 
ntbria e utilizada para armazenar os pa- 
droes das letras — de uma forma seme- 
Ihante aos padroes graficos. Assim, 
quando colocamos na tabela de nomes 
um codigo ASCII, o computador mul- 
tiplica este valor por 8, para obter a po- 
sigao em que a forma de letra esta ar- 
mazenada na tabela de padroes. O en- 
derego inicial desta tabela esta em BA- 
SE (2). na tela de 40 colunas. O progra- 
ma a seguir mostra na tela estes padroes, 
depois de le-los com VPEEK. 

10 SCREEN 

20 FOR 1-65 TO 191 

30 VPOKE BASE (05+1, 1 

40 FOR J-0 TO 7 

50 A-VPEEK(BASE(2)+8*I+J) 

55 ZS-"O000000O"+BINS(A) 

60 LOCATE 10, 10+J; PRINT RIGHTS ( 

2S.8) 

70 NEXT J: FOR K-1 TO 500: NEXT K 

80 NEXT I 

Mude algumas linhas para obter o 
mesmo resultado na tela de 32 colunas. 
onde a tabela de padroes fica em BASE 
(5). 

10 SCREEN 1 

30 VPOKE BASE C5) +1,1 

50 A-VPEEKCBASE(7)+8«I+J) 

Na tela de 32 colunas podemos ob- 
ter tambem caracteres coloridos. Para 
isso, existc uma tabela de cores com ape- 
nas 32 posigoes. O numero reduzido de 
posigoes significa que cada conjunto de 
oito caracteres tera necessariamente a 
mesma cor, conforme seu codigo ASCII 
— nao conforme sua posigao na tela. 

O programa seguinte demonstra isto, 
imprimindo todo o conjunto de carac- 
teres e depois enchendo a tabela de co- 
res — BASE (6) — com cores aleatorias. 

10 SCREEN 1 

20 FOR 1-0 TO 255 

30 VPOKE BASE <5) +1,1 

40 NEXT I 

SO FOR 1-0 TO 31 

60 VPOKE BASE{6)+I.RND(1)*256 

7 NEXT 

80 GOTO 50 



NAO DESANIME 



A organizagao da mem6ria de video 
do MSX e complicada. Nossa intengao 
foi motiva-lo a conhecer melhor seu 
computador; em outra qportunidade, 
voce podera compreender com mais cla- 
reza a organizagao desta mem6ria. 




DEOONTTROLE 



Anleriormenie, vimos coino ulili/ar 
codigos de coiitrole dentro de um pro- 
grama em BASIC, por meio da fuinjao 
CHRS. Esta retorna o caractcre corres- 
pondente a um determinado codigo nu- 
merico ASCII. Di versos exemplos fo- 
ram dados para micros da linha TRS-80. 

Agora vamos examinar conio micros 
de outras linhas podem trabalhar com 
codieos de controJe. 



HIE] 



Alguns compuiadores nao permitem 
o acesso a lodos os codigos de coiitro- 
le. Os da linha Apple II, por exempb, 
ao contrario dos da linha TRS-80, tern 
poucos usos para a funcao CHRS com 
esta finalidade. 

Nos micros da linha Apple, como ve- 
remos adiante, a entrada dos codigos de 
controle e feiia comumente por meio do 
proprio teclado, pois este dispoe de uma 
tecla < CONTROL > . que e pressiona- 
da em combinai;ao com outras. 



COMANDOS DO DOS 



Emprega-se muito a funi;aa CHRS 
para acionar comandos do DOS (sistu- 
ma operacional de disquetes). a partir 
de programas em BASIC. O codigo de 
controle que possibitita o use de um eo- 
mando do DOS em um programa e o 4. 

Um comando do DOS em gerdl so 
pode ser utilizado de forma direta (sem 
ser precedido de uma linha de progra- 
ma). Se quisermos, por exemplo, exa- 
minar a lista de arquivos em um disque- 
le, digitamos o comando direto: 

CATALOG 

Se usarmos dentro de um programa: 

100 CATALOG 

,,. comando nao funcionari quando 
o programa for executado. Para que is- 
to ocorra, devemos colocar: 

100 PRINT CHHS(4)+"CATAL0G" 

Quando esia linha e executada, o iii- 
terpretador BASIC examina o primei- 
ro caractere da mensagem a ser trans- 
mitida para o video, com o comando 
PRINT. Se ek tiver o c6digo ASCII 



igual a 4, a mensagem sera enviada ao 
sistema operacional, como se fosse uma 
frase de comando. 



ECONOMIZE MEMORIA 



Existem outras maneiras de se colo- 
car o c6digo 4 em uma linha PRINT. 
seguinte expediente economiza memo- 
ria, quando muitas linhas PRINT com 
CHRS (4) sao necessarias ao programa: 

90 LET C4S=CHR3(4) 

100 PRINT C4S; "CATALOG" 

110 PRINT C43j"RUN PR0C2" 

Pode-se tambem pressionar as teclas 
< CONTROL > e D simultaneamente, 
logo depois das primeiras aspas que se 
seguem ao comando PRINT, e. em se- 
guida, continuar a digitar normalmen- 
te comando do DOS que se deseja. 

Este metodo apresenta um inconve- 
niente: o codigo de controle 4 (que e in- 
serido por <CRTL> <D>) fica "in- 
visivel" na listagem, podendo nao ser 
notado posteriormente e nem aparecer 
na listagem da impressora. 

Em geral, o use da tecla < CON- 
TROL > nos micros Apple da acesso a 
uma serie de f undoes via teclado. 



Existe uma boa razao para se usar c6- 
digos de controle nos micros da linha 
Spectrum (como o TK-90X): economi- 
iar mem6ria. Os c6digos podem ser em- 
pregados para substituir as instrugoes 
PAPER, INK, BRIGHT e FLASH. Sao 
digitados ao se pressionar as teclas 
<CAPS SH1FT> e <SYMBOL 
SHIFT > e, em seguida, um niimero {o 
que equivale a tecla < CONTROL > tie 
outros micros). O mimero determiriard 
qual instrut^ao esta sendo substituida. 

Para PAPER, entre simplesmente o 
niimero da cor (1 a 7). Por exemplo, 
usamos o 2 para a cor vermelha. 

Para INK, pressione <CAPS 
SHIFT> com o mimero da cor. 

Para obter BRIGHT, pressione o mi- 
mero 9 e, para desliga-lo, pressione 8. 

Finalmente, para obter FLASH, 
pressione <CAPS SH1FT>, seguido 
do mimero 9. Para desligi-lo. use o nii- 



Os codigos de controle podem ser 
usados em um programa para acionar 
fun^oes especiais e substituir comandos 
em BASIC. Veja seu emprego 
em micros de diferentes linhas. 



mero 8. Lembre-se de pressionar 
<CAPS SHIFT> e <SYMBOL 
SHIFT > prlmeiro, de cada vez, Veja 
quanta memoria foi economizada em 
uma linha como esta: 

10 PRINT PAPER 2iINK 6 i "MENU' 

As palavras-chave PAPER e INK e 
OS doi.s pontes c virgulasocupam 1 byte 
de memoria cada, enquanto os numeros 
2 e 6 ocupam seis- Usando os cbdigos 
de controle, a linha ocupara apenas I 
byte para o par de teclas SHIFT, mais 
1 byte para o c6digo de controle. Isto 
signil'ica uma economia de seis bytes por 
instrugao. Assim, um programa qtie 
usasse varios comandos de cor ficaria 
bem menor em tamanho. 

Estes comandos precisam ser digita- 
dos dentro de aspas para que funcionem 
corretamente. Portanto, no exemplo an- 
terior, digite primeiro: 

10 PRINT • 

... e em seguida digite os codigos de con- 
trole para PAPKR 2 e INK 6. confor- 
me foi expiicado acima, seguidos pelo 
restante da linha. Nao se esquega das as- 
pas finais. 

Os codigos nao ocupam espago visi- 
vel na listagem, mas funcionam imedia- 
tamente, produzindo texto colorido nao 
sd na listagem como na tela. 

Pode-se utilizar este recurso simples- 
mente para enfatizar determinados tre- 
chos de uma listagem de programa na 
tela. Neste case, coloque os codigos de 
controle fora das aspas, a nao ser que 
voce queira que as cores tambem apa- 
refara na tela. 



INCONVENIENTE 



O procedimento descrito acima apre- 
senta um inconveniente: os c6digos de 
controle ficam "invisiveis" na tela e na 
listagem da impressora, nao podendo 
ser notados posteriormente. Se voce qui- 
ser mudar alguma cor de frente (INK) 
ou de fundo (PAPER) no mesmo pro- 
grama, precisara apagar a parte inicial 
da linha (ou ate ela toda, se nao souber 
localizar onde estao os c6digos de con- 
trole) e inserir novos c6digos pelo me- 
todo acima. 



\fn PROGRAMACAO DiJOGOS W 









O AVENTUR 




Para descobrk os mais estranhos 
lugares sem sair de casa, basta entrar 
no mundo da aventura. Veja aqui como 
proceder para dar movimento ao 
aventureiro e iniciar as explora^oes. 



Voce jd digitou o programa conten- 
do as descri?6es dos locals que fazem 
parte desta aventura? Entao deve estar 
ansioso para fazer com que o jogador 
comece a explor^-los, possibilitando-Ihe 
deslocar-se de um local para outro. Pa- 
ra que isso aconteca, voce precisara de- 
frnir OS movimentos possiveis a partir de 
um determinado local; deverd estabele- 
cer criterios que permitam julgar as res- 
postas dadas pelo jogador e, finalmen- 
te, determinar os caminhos que podem 
ser percorridos. 

Apresentaremos, adiante, algumas 
rotinas necessirias ao desenvolvimento 
do programa de avenluras. Estas roti- 
nas serao responsivels pela correta des- 
cricao da localizaf ao do jogador e pela 
apresenta?ao das saidas que Ihe serao 
permitidas. Voce digitar^ cada opcSo e 
aprenderi a escrever a se9ao de progra- 
ma que movimenta o jogador no mun- 
do da aventura, de acordo com a opgao 
que escolheu. 



fi fundamental conhecer a locaiiza- 
fao exata do jogador, a qualquer mo- 
mcnto, dentro do jogo. Para isso, o pro- 
grama usa uma varidvel L, que indica 
Local, O valor dessa vandvel muda de 
acordo com a localizai;ao do jogador, 
a cada movimento realizado. 

Para come^ar, voce deve informar ao 
computador qual a posicao do jogador 
no im'cio da aventura. A primeira segao 
de um programa para fazer isso e dada 
em seguida. Carregue a parte do progra- 
ma que voc6 ji possui, por meio do co- 
mando LOAD, e adicione estas novas 
linhas: 



100 CLS : LET DA-0 : LET TA-0: 

LET LA-0 

270 HEM ""POSICAO INICIAL** 

280 LET L-I5 

290 GOTO 330 



Q'^aii^ 



270 BEM **POSICAO INICIAL** 



280 L-15 
290 GOTO 330 

O mimero 15 indica a localizagao da 
porta de enlrada da Cidade Oculta. Se 
voce desejar que o jogador inicie a aven- 
tura em outro local, bastara mudar o va- 
lor da varidvel L. Adiante, vocS veri co- 
mo ajustar o valor de L durante o jogo, 
de modo que passe a indicar localizafjao 
diferente. For enquanto, devemos pre- 
parar o programa para receber do joga- 
dor informacSes indicativas do caminho 
que pretende seguir. 



RESPOSTAS 



Para que o computador possa com- 
preender e agir corretamente de acordo 
com as respostas dadas pelo jogador, 
voce deve dar a mdquina um conjunto 
de palavras que ela passe a idenlificar. 

Neste estagio, o computador precisa 
conhecer apenas as quatro dire?6es, o 
que pcde ser feito por meio do cordao 
R$. Esse cordao e carregado com as pa- 
lavras indicativas de dire^ao, colocadas 
em uma instrucao DATA. 





DESCRICA O DOS LO CAIS 
DIRECQES PQSSiV EIS 
A MOVIMENTACAO 



DO AVENTUREIRO 



110 HEM *«PHEPARACAO DAS MATBI 

ZES DE RESPOSTAS** 

DIM R$(19,40) : DIM R(19) 
FOR K-1 TO 4: READ RS(K),R 
NEXT K 

150 DATA "NORTE" ,1. "SUL-,1, "LE 

STE",1,"0EST£-,1 



120 
130 
(K) 



a^[2][^ 



110 HEM«*PaEPARAR MATRIZES DAS 

RESPOSTAS** 

120 DIM RS(19) ,R{19) 

130 FOR K-1 TO 4rflEAD RS(K),R(K 

) :NEXT 

150 DATA NORTE. l.SUL.l.LESTE.l, 

OESTE.l 

Observe que as matTizes foram di- 
mensionadas na linha 120, podendo 
agora armazenar todas as respostas que 
jogo requer. Come precisamos, ini- 
cialmente, de quatro direcoes, apenas os 
quatro primeiros elementos das matri- 
zes R$ e R serao utilizados. A instrufao 
FOR.. .NEXT, na linha 130, que le R$ 
e R por meio do comando READ, va- 
ria, assim, de um a quatro. As dire?6es 
e OS valores a ela associados estao colo- 
cados na instru9ao DATA, na linha 1 50. 

Essas informagoes, entretanto, ainda 
nao podem ser usadas pelo jogador. An- 
tes, ser^ necessirio dotar o programa de 
uma rotina que indique onde ele esta lo- 
calizado. 



COMO ENCONTRAR LOCAL 



Para que o jogador saiba onde se en- 
contra, ap6s efetuar cada movimento, 
i necessirio fornecer-lhe uma descrigao 
de sua posi^So. Voce ji digitou esta des- 



Illllilll 
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cri^ao. Ela esta nas linhas de comenta- 
rios, que $e iniciarn com a palavra REM. 
Agora, so nos falta uma rotina que as- 
socie o niimero contido na variavel L, 
que indica a posi?ao, k descrigao corres- 
pondente. Neste ponto, os usuarios do 
Spectrum devem digitar uma rocina 
extra: 



20 DIM Gtll,4): POKE 23658,8 

30 FOB N-1 TO 4: FOR H-1 TO 

11: READ G{M,N}: NEXT M: NEXT 

N 

40 DATA 0.0,0,5020,0,0,5050, 

5080,0,5110.0 

50 DATA 5140,0,0.5180,5210. 

5240,5270,5300,0,0,0 

60 DATA 0,5330.0,5360.0,0,0 

,0,0,0 

70 DATA 1010,1150,1240.1310, 

1410,1460,1500.1360,1080.1550 

,3110 
300 BEli **ACHAR O 
310 CLS 

330 IF- L<11 THEN 
: GOTO 400 
340 IF L<21 THEN 
.2) : GOTO 400 
350 IF L<26 THEN 
,3) 







LOCAL** 
GOSUB G(L.l) 
GOSUB G{L-10 
GOSUB G(L-20 



□r>^[2][S 



m 



300 REM **ACHAa LOCAL** 

310 CLS 

330 IF L<11 THEN ON L GOSUB 0,0 

,0,5020, 0,0, 505 0.5 080, 0,5 110: GO 

TO 400 

340 IF L<21 THEN ON L-10 GOSUB 

5140.0.0,5180.5210.5240.52 70.53 

00.0.0:GOTO 400 

350 IF L<26 THEN ON L-20 GOSUB 

0,5330,0,5360 

Antes de escrever esse tipo de rotina. 
verifique se o niimero correspondente a 
cada descri(;ao de localizapao estd cor- 
relo. Comeijando com a localiza^ao 1 , 
fa^a uma lista dos numeros de linhas 
correspondentes a cada descrigao. Se 
nao houver descrigao para uma deter- 
minada localizaijao, escreva o niimero 
0, Nesta aventura, ja dispomos de des- 
cri9ao para a localizagao de numero 4, 
mas nao para as de numero 1, 2 e 3. 

De posse do conjunto contendo os 
niimcros de linhas correspondentes a 
descrigao de cada localizagao, voce po- 
de comegar a escrever a rotina. Em to- 
dos OS comput adores, exceto o Spec- 
trum, esta rotina e constituida de uma 
seqiiencia de operafoes que verifica o 
valor da variavel L e usa o comando 
ON. ..GOSUB. No caso do Spectrum, 
que nao possui esie comando, o niime- 
ro das linhas e obtido de uma matriz. 



Nos outros programas, o conjunto 
contendo os numeros de linhas esta nas 
instrugoes colocadas nas linhas 330 a 
350. Inicia com a localizagao 1 no co- 
medo da linha 330 e termina com a lo- 
calizagao 24 no final da linha 350. 

No Spectrum, use o valor de L para 
ter acesso a um eiemento da matriz cons- 
truido peias instrugoes apresentadas nas 
linhas 20 e 30. Note que a matriz esta 
superdimensionada em relagao a quan- 
tidade de locais e.xistenies na aventura. 
Os numeros excedentes sao todos iguais 
a zero e nao tern nenhuma intluencia no 
desenrolar da aventura. O dimensiona- 
mento extra foi feito porque a matriz se- 
ra uiilizada em partes do programa que 
mais tarde apresentaremos. 

Uma observagao valida somente pa- 
ra OS usuarios do Spectrum: o coman- 
do POKE, na linha 20, faz com que o 
computador aceite apenas letras maius- 



culas. Isto evitard problemas no mo- 

mento de se comparar as respostas da- 
das pelo jogador com as armazenadas 
na variavel R$. 



APRESEMTACAO OAS DIWtCOES 



Alem da descricao do local onde se 
encontra, o jogador tambem precisa co- 
nhecer as saidas disponiveis. O progra- 
ma deve verificar, pelas variaveis N, E, 
S, e W, quais sao estas saidas. A infor- 
magao e necessaria porque nem stmpre 
se pode sair em lodas as direcoes, esian- 
do em um determinado local. A proxi- 
ma segao do programa indica as saidas. 



390 E£M **APONTAR DIBECOES** 




400 IF DAOl THEN PRINT '"POD 

E SEGUIR" ■ 

410 IF N>0 THEN PRINT TAB 11; 

"NOBTE" 

420 IF E>0 THEN PRINT TAB 11; 

" LESTE" 

430 IF S>0 THEN PRINT TAB 11; 

"SUL" 

440 IF W>0 THEN PRINT TAB 11: 

•QESTE" 



440 IF W>0 THEN PRINT TAB (1 3 ) ; ' 
OESTE" 



D^ 



J90 REM **INDICAB DIRECOES** 

400 IF LOll OH [LA=1 AND 0B(6J 

=-1) THEN PRINT:PRINT"PODE SEGU 

IH "jELSE 460 

410 IF N>0 THEN PRINT TABdJ):" 

NORTE" 

420 IF E>0 THEN PRINT TAB ( 1 3 ) : " 

LESTE" 

430 IF S>0 THEN PRINT TAB (1 3 ) ; " 

SUL" 



aiE] 



**APONTAR DIRECOES** 
< > 11 OR (LA - 1 AN 
- 1 THEN PRINT : PR 
: GOTO 410 



390 REM 

400 IF L 

D 0B(6) - 

INT "PODE SEGUIR 

405 GOTO 460 

410 IF N > THEN PRINT TAB ( 

11) ; "NORTE" 
420 IF E > THEN PRINT TAB ( 

11)' "LESTE" 
430 'if S > THEN PRINT TAB ( 

11) ; "SUL" 
440 IF W > 

U) ; "OESTE" 



THEN PRINT TAB ( 



A rolina apresemada simplesmente 
verifica o?; valores das variiveis N, S, E, 
e W que voce dcfiniu. baseado em scu 
mapa de locaiidades. Se o valor da va- 



riavel for maior do que zero, a direi;ao 
escolhida e uma diret;ao possi'vet — ou 
seja, e uma saida. Essa rolina pode ser 
util)2ada, sem modificav'oes, em qual- 
quer aveniura que empregue urn seiora- 
menio desse lipo. 



INSTRUCOES 



Agora que o jogador coiiIk-ll' as di- 
rcvoes possiveis, podemos pcrguntar- 
Ihe: "PARA ONDE?". A roiina rei,- 
ponsavcl poresta pergunia e aprtsenta- 
da abaixo. 



450 REM **INSTHUCOES** 

460 INPUT INVERSE 1 ; " PARA OND 

E " ; LINE IS 

470 GOSUB 3010 

515 GOTO G{I,4) 
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450 REM *»'INSTHUCOES** 

460 PRINT: INPUT'PARA ONDE";rS 

470 GOSUB 3010 

A resposta dada pelo jogador e arma- 
zenada na variavel 1$. O program a ve- 
rificar^ o tipo de resposta e atiiara de 
acordo. 

A proxima linha — linha 470 — des- 
via o fluxo do programa para uma sub- 
rotina localizada na linha 3010. Esta 
sub-roiina e responsavel pela valida^ao 
da resposta do jogador. 



600 REM **ROTINA INSTR.** 

610 LET IN-0 ■ IF LEN YS>LEN XS 
THEN RETURN 

620 FOR K-1 TO (LEN XS-LEN YS+ 

1) 

630 IF y$-XS(K TO K+LEN YS-l) 

THEN LET IN-K ; GOTO 650 

640 NEX'^ K 

650 RET'JHN 
3000 REM **HOTINA UERIFICACAO** 
3010 LET NS-"": LET XS-I$: LET 
YS-" ": GOSUB 600: LET I-IN 
3020 IF I-O THEN LET V$-I$: GO 
TO 3050 

3030 LET VS-IS{ TO I-l) 
3040 LET NS-I$(I+1 TO ) 
3050 LET 1-0 
3060 FOR K-1 TO 19 
3070 IF VS-HS{K, TO LEN VS) 
N LET I-B(K): LET IS-V$( TO 1) 
3080 NEXT K 
3090 RETURN 



^fm 








3000 


HEM **INSTRUCAO DE 


CHECAGE 


M«* 










3010 


N$--" 


:I-INSTH(IS, " 


") 




3020 



3030 


IF I* 


D THEN VS = IS .*G0TO 


305 


V$-LEFTS{I$, I-l) 






3040 


N$=MIDSCIS.I+1) 






3050 


1-0 








3060 


FOR K 


=1 TO 19 






3070 


IF IMSTR(RSCK) ,\)%) 


=1 THEN 


I=H(K) :IS-I 


.EFT$(U3, 1) 






3080 


NEXT 








3090 


RETURl 


i 






i^ 




3000 


REM 


**ROTINA DE VERIFICA 


CAO*' 










3010 


NS - • 


' : FOR Z - 1 


TO 


LEN 


(1$) 


: IF 


MIDS (IS.Z.l) 


m " 


w 


THEN 


I - Z 


GOTO 3020 






3015 


NEXT 


:I - 






3020 


IF I 


- THEN VS - 


15: 


GO 


TO 3050 








3030 


VS - 


LEFTS (I$,I - 


1) 




3040 


NS - 


MIDS (IS, I + 


1) 




3050 


1-0 








3 060 


FOR H 


- 1 TO 19 






3070 


IF VS 


- LEFTS (RSCK), 


LE 



N (VS)) THEN I - R(K):IS ■ LEF 
TS (VS.l) 
3080 NEXT 
3090 RETURN 

A rotina verifica se a variavel IS com- 
p6e-se de duas palavras. Em caso afir- 
mativo, a primeira palavra e chamada 
dc V$ e a segunda de N$. A variavel V$ 
contem um vcrbo — t'omo PEGAR, 
MATAR, LEVAR — e todas as pala- 
vras indicativas de direfao: NORTE, 
SUL, LESTE e OESTE. A variavel NS 
armazena os nomes dos objetos que fa- 
zem parte da aventura. 

Oa compuladores TRS-Color e MSX 
usam o comando INSTR, na linha 3010, 
para verificar sc ha algum espa<;o ha res- 
posta que foi armazenada em IS. Este 
espa^o sera indicative da existencia de 
duas palavras; a que pertence a V$ e a 
que pertence a NS. No Spectrum e no 
Apple nao existe o comando INSTR. 
Para substitui-lo, usamos uma pequena 
sub-rotina, colocada nas linhas 600 a 
650. 

Se um espago I'or encontrado, a ins- 
trugao na linha 3030 separa [$ em suas 
componenies V$ e N$. Se nao houver es- 
paijo, a linha 3020 considcra VS iaual a 
1$. 
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A parte final da sub-rotina, composta 
pelas linha-s 3060 a 3080, compara as res- 
postas dadas com o conteiido da matriz 
RS. Como sabemos, a mairiz RS con- 
tem as palavras indicativas das direcoes 
que podem ser seguidas, Depois voce ve- 
ra como fa^er para expandir o conteii- 
do da matriz R$. Pela insiru^ao da li- 
nha 3070. o programa verifica se ha 
igualdade cntre os comeudos RS e VS. 
Se houver, a variavel I assume o valor 
da variavel R. O programa reconhecera. 
a igualdade dos conteudos verificando 
se o valor de I e maior que zero. A ulti- 
ma parte da iinha 3070 retira a primei- 
ra letra de VS e armazena-a na variavel 
1$. A variavel 1$ sera utilizada depois, 
para fazer com que o jogador se mo- 
vimente. 

As sub-rotinas apresentadas adap- 
lam-se a qualquer aventura, sem neces- 
sidadede grandes modirica(;6es. Apenas 
um detalhe pode precisar de alguns ajus- 
tes: a dura^ao do comando 
FOR. ..NEXT, na Iinha 3060. 



MOVIMENTOS 



O passo seguinte consiste em adicio- 



nar uma rotina destinada a maiiipulai 
a variavel L, indicativa de localizav'ao. 
de acordo com o valor assumido pela 
variavel 1$. Esta rotina eapreseniada em 
seguida: 



1000 REM 
1010 IF 
T L-L-6: 
1020 IF 
T L-L+1; 
1030 IF 
T L-L+6; 
1040 IF 
T L-L-1: 
1050 REM 
IVEL NFS 
1060 PRI 
PODE SE- 
GOTO 3 30 



«*ROTINA MOV I 
IS-"N" AND N>0 

GOTO 310 
IS-"L" AND E:>0 

GOTO 310 
IS-"S" AND S>0 

GOTO 310 
IS-="0" AND W>0 

GOTO 310 

**se: nao ha L 
sa direcao** 
nt '"desculpe. 

GUIR NESTA Dl 



MENTO** 
THEN LE 

THEN LE 

THEN LE 

THEN LE 

OCAL POSS 

VOCE NAO 
RECAO." : 



ar>^a] 



1000 REM **BOTINA DE MOVIMENTO* 

1010 IF 1S="N" AND N>0 THEN L=L 
-6:G0T0 310 

1020 IF I$-"L" AND E>0 THEN L-L 
+1:G0T0 310 



iOJO IF I$="S" AND S>0 THEN L'L 

+6: GOTO 310 

1040 IF IS="0" AND U>0 THEN L=L 

-1:G0T0 310 

1050 REM **SE NAO HOUUER LOCAL 

P03SIVEL NESSA DIRECAO** 

1060 PRINT :PRINT"DESCULPE - VOC 

E NAO PODE SEGUIH POE ESTE CAMI 

NHO. " :GOTO 3 30 

Como voce esta lembrado, o ponto 
de partida da aventura foi um mapa 
com uma largura de seis posi^oes. Mo- 
ver o jogador por essas posigoes signi- 
fica alterar o valor da variavel L por um 
fator bascado no tamanho do mapa. 
Por exempio, para fazer com que o jo- 
gador se movimcnte nas diregoes Norte 
ou Sul basta adicionar ou subtrair seis 
da variavel L. Isso fara com que o jo- 
gador suba ou des(;a uma Iinha comple- 
la no mapa. De modo semelhante, mo- 
ver o jogador nas dire^oes Leste ou Oes- 
te significa adicionar ou subtrair 1 de L. 

Asinsirugoes das linhas 1010 a 1040 
verificam o conteiJdo da variavel IS e 
ajustam o valor de L. As saidas possi- 
veis sao definidas nas linhas que seguem 
as descrigoes dos locals. 

Se nao ha uma saida na dire^ao que 
o jogador escolhcu, a Iinha 1060 apre- 
senta a mensagcm: "DHSCULPE — 
VOCi: NAO PODE SEGUIR POR ES- 
TE CAMINHO." 

Dimensionando adequadamente o 
mapa, voce podera utilizar essas rotinas 
em outros programas, ba.stando alterar 
as instruiy-oes das linhas 1010 e 10.10. 

Grave o programa, e aguarde a con- 
tinuagao da aventura. 
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DATIIIID 
ALFA 





TO COMPL 




Se voce ja dominQu o uso das teclas 
centrals, h hora de treinar a 
datilografia com todo o allabeto. Para 
rsso, veja como alterar o programa 
apresentado no arttgo anterior. 



No artigo da pagtna 249 apresenta- 
mos a primeira parte de urn programa 
complete para aprender datilografia. 
Tendo ji dominado razoavelmente o 
uso das teclas da fiteira do meio — ou 
seja, se vocS datilografa cerca de 15 pa- 
iavras por minuto, sem cometer nenhum 
erro — , i hora de passar para o segun- 
do estdgio. 



AS TECLAS QWERTY 



Atrescentando as linhas que se se- 
guem ao programa do artigo anterior, 
voce poderi treinar tamb^m as teclas da 
fileira de cima do teclado: a chamada fi- 



leira QWERTY {h desta fileira que vem 
o noma dado aos teclados usados em 
computadores). 

Carregue o programa antigo e digiie 
as linhas que se seguem con forme o ti- 
po de seu microcomputador. Aigumas 
delas substituirao linhas previamente 
existentes — que agora se tomaram des- 
necessdrias — , ao passo qye outras sao 
totaJmente novas. 



30 LET SS-'QAHSEDRFTGYHUJIKOL 

P" 
210 FOR K-6 TO 24 
230 LET R$-S$(K-5> 



320 LET HN-INT (RND«19)+1 

330 PRINT AT 10 ,RN+5 , ; "** : LET 

RS-SS(HN) 

350 PRINT AT lO.RN+S;" " 

440 LET RN-INT (BND*l9)+i 

530 PRINT AT 10,13;" 

': PRINT AT lO.lSjTS 

540 FOR M-1 TO LEN TS: PRINT 

AT 9,11+Mr" « 

610 FOR N-1 TO 4: RESTORE ; 

LET HN-INT (RND*24)+1: FOR K-1 

TO RN: READ X$ ; NEXT K 
1010 PRINT AT 12.6;SS 
2000 DATA "QUEDA'*,"TIRO- 
" , "POLE" , "GBALHA" . "BISO" 



" . "PATRULHA 

A",''ILHA" 

2010 DATA "TULIPA 



URS0","PILHA" 



TROLE 

PORTA 

•RU 



•PIOLHO","IO. 



P^^ssios^^ 



"^^^e/^&T^J^CL 



'^co 



'A^Oa 



^0. 



..e. ^,^1 



cu' 



'^^ 



Q^^ 



^Sa 



Rf 



re 



^Hi 



'Jl 



Kq 



LP. 






i-» 



sW 



276 
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COMQ ACRESCENTAR AS 

TECLAS DAS FILEIRAS SUPERIO R. 

E INFERIOR AO PROGRAMA 



_ POSIC AO DOS DEDOS NAS 
TECLAS DE QUTRAS FILEIRAS 



COMO MUDAR 



AS PALAVRAS PARA 



TREINAMENTO 



PRATIQUE COM 



TODO ALFABETO 



-f^ 



DO" . "PIADA" , "JAULA" , "FLOHESTA" 
"OLHO" ,"PODEB" , "RATO" , "TROPA", 
i PISTOLA". "QUADRA" 



D 



9000 DATA QUARTO , LADO . fATOS . SER 
lA.GALHO, JATO.HAHPA.LOTERIA, FOR 
TA.OUILHA.SADIO.RALA.ORLA.ATILA 
9010 DATA EDITAR,TALHER,DIBETO, 
ULISSES . ILHA , FOGO . JULGAR , ASSADO 
. DERROTA , HULHA , GASODUTO , LATA , TI 
JOLO 



mis] 



10 OB$-"<JAWSEDSFTGYHUJIKOLP" 

210 AP-125J 

220 FOR K-1 TO 19 

230 AP-AP+1 

320 AP-1253+RMD(19) 

430 PS-MIDS(0BS.RND{19) .1) 

eOO CLS:PS-"' :FOR K=>1 TO 4 



mk 



10 01iS-"QAWSEDRFTCYHUJIK0LPC":Z 
S-CKHS(219) :SS-"L10 02 G" 
210 AP-35e 



10 OBS - "QAWSEDRFTGY 

HUJIKOLPi" 
210 AP - - 1 

220 FOR K - 1 TO 20rAP - AP + 
2: GOSUB 1100: NEXT 
320 AP - 1 + INT ( RND (1) * 2 
0) « 2 
420 FOR K - 1 TO 20: PS - MIDS 

(0B5. INT ( RND (I) * 20) * Z 
+ 1.1) 

610 FOR K - 1 TO 5: PS - PS + W 
S( INT { RND (1) * 28) + 1) + 




(32) : 
VTAB 



NEXT 
12: HTAB 



PRINT 



220 FOR K-1 TO 20 

230 AP-AP+1 

320 AP-359+INT(RND(l)*20) 

430 P$-M1DS(OB$.INT(RND(1)*20)+ 

1.1) 

810 FOR K-1 TO 4:PS-PS+WS(INT(R 

ND(1)*28)+1)+CHR$(32) :NEXT 

900 DATA QUARTO , LADO , FATOS . SER 

lA . GALHO , JATO . HARPA , LOTERIA . POH 

TA,QUILHA,SADIO.RA5A,OaLA,ATI5A 

R 

9010 DATA EDITAH.TALHER.DIRETO, 

ULISSES. ItHA. FOGO, JULGAR.JULHO. 

ASSADO , DERHOTA , HULHA . GASODUTO , L 

ACO.TIJOLO 



caR$ 

1010 

s 

9000 DATA QUARTO . LADO , FATOS . 
SERIA, GALHO, JATO.HAHPA.LOTERIA, 
PORTA , QUILHA , SADIO , RALA , OHLA , AT 

ILA 

9010 DATA EDITAR.TALHER.DIHE 

TO .ULISSES . ILHA , FOGO . JULGAR , JUL 

HO . ASSADO . DERROTA . HULHA, GASODOT 

O.LACO.TIJOLO 

I 

Quando o programa for executado, 
a tela exibird o menu usuaJ, com cinco 
opcoes. O nivel 1 exibe a seqitencia de 
letras QAWSEDRFTGYHUJIKOLP. 
Dependendo de seu compuLador, o te- 
clado tamb^m incluird um caractere fi- 
nal: ; ou <^. Da mesma forma que o pro- 
grama anterior, um aslerisco imediata- 



menie abaixo das letras na tela funcio- 
nard como um sinal de prontidao, ca- 
minhando da esquerda para a direita. 

Os niveis 2 e 3 funcionam exatamen- 
te como o primeiro, levando voce a di- 
gitar OS caracteres aleatoriamente, mas 
com um^a sine muito maior de letras. 

Os m'veis 4 e 5 sao mais dificeis do 
que OS anteriores, porque envolvem a di- 
gitafao de palavras mais extensas, for- 
madas por letras das duas diferentes fi- 
leiras. 

Para comeyar a usar o programa, 
sente-se diante do teclado e posicione os 
dedos corretamente na fileira do mejo. 
Tente digitar as teclas da linha superior 
movimentando apenas o dedo que for 
necess^io para cada uma e nao toda a 
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nor juntamente com as da fileira cen- 
tral, comece a usar as teclas da fileira 
inferior (Z, X, C. V, B, etc.) 

Nesta parte do curso, voce ainda nao 
trabaihara com as tres fileiras. Antes 
disso, aprenderi a utilizar as tecias das 
fileiras central e inferior do teclado, si- 
multaneamente, com exercicios em cin- 
co niveis de dificuldade. 

Eis aqui as alterafoes que devera efe- 
tuar: 



30 LET SS-'AZSXDCFVGBHNJMKL" 
210 FOR K-6 TO 21 
320 LET RN-INT (HND*16)+1 
440 LET RN-INT (RND*16)+1 



D'CfTg 



'^S 



320 AP-1253+BNDC16) 

430 P$-MID5(0BS,RND(16) ,1) 

800 CLS:PS-"" :FOR K-1 TO 5 

9000 DATA FACA , LAVA , LAMA . BALANC 

, VAGA , NASA , JACA . SAMBA , MACA , AVA 

NCA , VANDA , A J AX , CHAMADA. VALHALA , 

CALHArCANSADA 

9010 DATA LAMBADA, BANANA.GAMBA, 

BANDA , CANA, ABAFA. CANALHA , MASSA, 

ZAGA , MANHA , CASCA , SALVA 



ftH 



10 0B3-''AZSXDCFVGBHNJMK,L.C" :ZS 

-CHR3C219) ;SS-"L10 02 G" 

220 FOR K-1 TO 19 

320 AP-359+INT(RND(l)*l9) 

430 P$-MID3(OBS.INT(HNDa)*19) + 

1,1) 

9000 DATA FACA, LAVA, LAHA^AL.BAL 

ANCA , VAGA , NASA , JACA , SAMBA , MACA , 

AVAN5 A , VANDA , A JAX , CHAMADA , VALHA 

LA.CALHA.CANSADA 

9010 DATA LAMBADA , BANANA , GAMBA , 

BANDA. CANA, ABAFA , CANALHA , MASSA , 

ZAGA . MAN HA , CAgA , B AQ A 



"fllAl., 



CflM, 



'^BflFfl 



'«'^S 



^^ 



^1^ 



«.l^ 



%^^- 



mSo (veja a ilustra^ao). Utilize o dedo 
minimo da m3o esquerda para acionar 
o Q ou o A, o dedo anutar para o S e 
o W, e assim por diante, ate o dedo mi- 
nimo da mao direita. que devc ser usa- 
do para acionar a tecla P. Os dedos in- 
dicadorcs trabalharSo mais que todos — 
o indicador esquerdo serd utilizado pa- 
ra o F, G, B e T, enquanto o indicador 
direitoseencarregarddas letras H, J, Y 
e U. Depois de ter pressionado uma te- 
cla da fileira superior, volte com o de- 
do k posi^fio inicial, na tecla de apoio. 



AS TECLAS ZXCV 



jj, Quando estiver digitando com preci- 
slo e rapidez as teclas da fileira supe- 



•-ii 



610 FOR N-1 TO 5; RESTORE : 
LET RN-INT (HND*24)+1: FOR K-1 
TO RN; READ X$; NEXT K 
1010 PRINT AT 12,6; "SS" 
2000 DATA "CASA". "FACA", "VAZA" , 
"LAVA" , "MACA" , "VACA" , "BABACA" , " 
JACA" . "JAZZ" , "BANDA" . "BALA" , "CA 
LCA" 

2010 DATA "SALVA" , 'CALA* . "AMA" , 
"FALA" , "DA" , "AFAGA" , "ALCANCA" , " 
MANHA" , "CANA" , "LAZANHA" , "SAGA" . 
"CHAMA" 



a 



10 0B$-"AZSXDCrVG8HNJMKL' 
220 FOR K-1 TO 16 



'S«. 




10 OBS -"AZSXDCFUGBH 

N J M K , L . ;- 
220 FOR K - 1 TO 19:AP - AP + 
2: GOSUB 1100; NEXT 
320 AP - 1 + INT ( RND (1) * 1 
9) * 2 
420 FOR K - 1 TO 20; PS • M1D$ 

(OBS, INT ( RND {1) * 19) * 2 
+ 1.1) 

9000 DATA FACA.LAVA, LAMA, BALA 
NCA , VAGA , NASA , JACA , SAMBA , MACA , A 



I 




7 APUCACOES 7 
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VANCA , VANDA , AJAX . CHAMADA , VALHAL 
A.CALHA.CANSADA 

9010 DATA LAMBADA , BANANA . BAN 
DA , CANA , ABAFA , CANALHA , MASSA , ZAG 
A , MANHA , CALA , BALA . GAMBA 

Com esse programa, voce tambem 
fara exercicios em cinco niveis de difi- 
culdade, mas com palavras que utilizam 
as ietras das filetras central e inferior do 
teclado. 

Mais uma vez, sente-se dianie do te- 



ciado, com os dedos posicionados cor- 
retamente. Agora voce movimenlari 
seus dedos para baixo, para a fileira in- 
ferior, antes de retornar as teclas de 
apoio, O dedo mmimo da mao esquer- 
da xxk pressionar o A e o Z, o anular o 
S e o X e assim por diante. O dedo indi- 
cador da mao esquerda sera utilizado 
para as Ietras F. G, V e B, e o indicador 
da mao direita para H, J, iS e M. Os de- 
dos restantes deverao operar as teclas 



de pontua?ao situadas na fileira infe- 
rior^ em posi(;5es que van am de tecla- 
do para teclado. No Spectrum, elas nao 
estao disponiveis sem o < SYMBOL 
SHIFT > , cujo emprego seri explicado 
futuramente. 

Observe que essas teclas nao estao in- 
cluidas nos testes de palavras — voce de- 
ver^ praticar a pontuaifao com um pro- 
grama adicional, que apresentaremos 
em artigo posterior. 




7 APUCACOiS 7 



ALFABETO COMPLETO 



Depois de dominar o uso conjunto 
das teclas das fileiras superior e inferior 
do teclado, vocS estara apto a ingressar 
no estigio seguinte do curso. Afinal, vo- 
ce poderi praticar a datilografia utilizan- 
do todo o alfabeto. Apenas as teclas de 
numeros e de pontua?ao permanecerao 
temporarJamente excluidas do treino. 

Eis aqui as alteracoes que devera efe- 
tuar no programa: 



30 LET S$--QAZWSXEDCRFVTGBYHN 

UJMIKOLP" 

40 FOR K-2 TO 27 

230 LET RS-SS(K-I) 

320 LET RN-INT (RND*26)+1 

330 PRINT AT 10,RN+1;"*": LET 

R$-55(RN) 

350 PRINT AT lO.HN+1;" " 

440 LET RN-INT (RND*26)+1 

530 PRINT AT 10,13:" 

": PRINT AT 10.13;TS 

540 FOR M-1 TO LEN TS : PRINT 

AT 9,11+M;" * 

610 FOR N-1 TO S: RESTORE : 

LET RN-INT (RND*24)+1: FOR K-1 

TO RN: READ XS : NEXT K 
1010 PRINT AT 12.2;SS 
2000 DATA "eUIETO" , "LONGE" ,"ASI 
LO" , "MENTE- , 'LOCAL' . 'TRADICAO' . 
"HESPOSTA" , "ATRAVES" , "DRIBLE" , ' 
RETORNO" , "DESPEDIDA" , "ESCRITA" 
2010 DATA "ESCOLA", "INFERNO", "P 
ROFESSOR" , *CHATO" , "TELEVISAO" , " 
BURRA" , "ESPORTE- . "BOM" , "COMPUTA 
DOR" ."MELHOH", 'INPUT" , "PERFEITO 



D 



10 OB$-"QAZWSXEDCRFVTGBYHNUJMlK 

OLP" 

210 AP-1248 

220 FOR K-1 TO 26 

320 AP-124e+RND(26) 

430 P3-M1DS(0BS,RNDC26) ,1) 

800 CLS;P$-"";rOR K-1 TO 4 

1020 PRINT 6257, 0B$ 

9O0O DATA MARIA.MULHER, JEITO.CH 

EGAR , QUENTE , COSTUME , LOCAL , BONIT 

A, DECOTE , CONVERSA , UTERO , JAPAO , C 

ORRIDA.AZUL 

9010 DATA BANDEtRA,AVIAO,k;AZIO, 

ABERTO , HALITO , XAXADO , ALCALINO , U 

NIDOS . PRESSA , QUERICA , GUARDIAO , A 

BOBORA . NAVIO , REMORSO 



m 



ZM' 



10 OBS-"QAZWSXEDCRFVTGB¥HNUJMIK 
,OL.PC:":ZS-CHRS{219) :S5-"L10 02 
G" 
210 AP-353 
220 FOR K-1 TO 29 
320 AP-353+INT(HND<l)*29J 



430 PS-MID$(OBS,INT{RND(l)*29)+ 

1,1) 

1010 LOCATE 0,12:PRINTOB$ 

9000 DATA MARIA, MULHEH, JEITO.CH 

EGAR , QUENTE , COSTUME . CANgAO , BONI 

TA , DECOTE . CONVERSA . OTERO . JAPSO , 

CORRIDA, AZUL 

9010 DATA BANDEIRA,AV1A0,VAZI0, 

ABERTO , HALITO , XAXADO . ALCALINO , U 

NIDOS , PRESSA , QUERIDA .GUARDIAO , A 

BOBORA , NAVIO , REMORSO 



[BE] 



10 OBS - "QASWSXEDCRFVTGByHNUJrt 
IK,OL.P;" 
210 AP - 

220 FOR K - 1 TO 29:AP - AP + 
1: GOSUB 1100: NEXT 
320 AP - 1 + INT ( RND (1) * 2 
9) 

420 FOR K - I TO 20: PS - MIDS 
(OBS. INT ( RND (1) * 29) + 1, 
1) 

9000 DATA MARIA, MULHER.JEITG, 
CHEGAR , QUENTE , COSTUME , CANCAO , BQ 
NITA , DECOTE . CONVERSA , UTERO , JAPA 
0, CORRIDA, AZUL 

9010 DATA BANDElHA.AVIAO.VAZI 
, ABERTO , HALITO , XAXADO , ALCAL INO 
, UNIDOS , PRESSA. QUERIDA . GUARDIAO 
, ABOBORA , NAVIO , REMORSO 

Como acontece com todos os progra- 
mas deste curso, assim que voce estiver 
familiarizado com as palavras constan- 
tes nas declaragSes DATA, poderd tro- 
cS-las por novas palavras. Quase sem- 
pre, OS programas para outras maqui- 
nas incluem palavras diferentes. Se qui- 
ser, aproveite-as em seu computador, 
mas verifique se nao est^ utilizando um 
numero de palavras raenor que o do 
programa original. Caso isso ocorra, vo- 
ce obterd uma mensagem de erro OUT 
OF DATA. E, se colocar mais palavras 
do que as exisientes, elas nao serao li- 
das pelo computador, a menos que vo- 
ce modifique o programa. 

Siga as cinco li?6es, como nos est^- 
gios anteriores. Lembre-se sem pre de co- 
locar OS dedos de volta nas posi^oes cor- 
retas de apoio, na fileira do meio, toda 
vez que pressionar uma tecla das carrei- 
ras inferior ou superior. 



APERFEICOAMENTO 



Na medida em que o curso for progre- 
dindo, vocS terd a oportunidade de se 
aperfeifoar cada vez mais, adquirindo 
velocidade e precisao na datilografia 
com todas as letras do alfabeto. Em se- 
guida, comegard a praticar com as teclas 
de numeros e de pontuagao — essenciais 
para a digitafao das listagens de pro- 
gramas. 




Como acentusr textos em portu- 
guds em um micro computador? 

Depende muito da linha ou da mar- 
ca do micro. problema n3o foi tecni- 
camente resolvido de maneira unifor- 
me pelos fabricantes nacionats, pois 
durante muito tempo nao houve um pa- 
drao industrial obrigatdrio. Entre os 
computadores pessoais cqbertos por 
INPUT, apenas os micros da linha MSX 
seguem o padrSo atual de representa- 
qao dos stnais caracterlsticos da llr»gua 
portuguesa — o chamado BRASCII, 
que § a extensao brasileira do c;6digo 
ASCII. 

O BRASCII, al6m de deffnir os cddi- 
gos num^ricos para as letras acentua- 
das (a, a, k. A, 6, etc.), determine ain- 
da a localizapao padronizada da cedi- 
Iha e dos acentos grave, agudo. til e cir- 
cunflexo, no teclado do microcompu- 
tador. Portanto, a maneira de us^-los, 
na datilografia, 6 iddntica 3 de uma mS- 
quina de escrever. Da mesma forma, o 
comportamento do teclado e do video, 
durante a datilografia das letras acen- 
tuadas. deve ser iguat: por exempio, ao 
se pressionar a tecla com o til, este si- 
nal aparece no video, e o cursor fica pa- 
rado no mesmo lugar; ao se pressionar 
a letra a, ela aparece imediatamente 
abaixo do acento. 

Os micros de outras linhas (Apple li, 
TRS-80, TRS-Color e Sinclairl, por se- 
rem copiados de modelos norte-ame- 
ricanos e ingleses, d§o ao problema 
respostas diferentes. As solupoes ado- 
tadas vartam de um teclado inteiramen- 
te compat(vel com o de uma mdquina 
de escrever (por exempio, o Microen- 
genho II, da Spectrum, que pertence h 
linha Apple), at^ a impossibilidade to- 
tal de acentuagio (micros compatlveis 
com as linhas Sinclair ZX-81 e TRS- 
Color). 

Alguns micros brasiieiros da linha 
Apple adotaram o padrSo do chamado 
teclado inteligentB, ou teclado profis- 
sional, em que certas teclas s§o usa- 
das para dtgitar a letra j^ acentuada, 
com uma linica pressio. A localizac^o 
destas teclas nio coincide, evidente- 
mente, com a de uma mSquina de es- 
crever, e seu acionamento depends da 
pressao simultfinea de uma ou mais te- 
clas adicionais de controle. Este proce- 
dimento dificuKa a datilografia, pois di- 
fere muito da maneira natural de se 
user uma mdquina de escrever e com- 
promete bastante a velocidade da di- 
gitaqao. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



1 

llllllllinaNO PROXIMO NUMEROHnillllllll 1 


PROG RAM AC AO BASIC 

Aperfeigoe as t^cnicas de programacao estruturada, 
aprendendo a elaborar uma rotina de ordenacao. 


APLICAQOES 

Prosseguindo o curso de datilografia, voce ver^ como 
inciuir no programa os numeros e sfmbolos do teclado. 


CODIGO DE MAQUINA 

Deixe o computador converter o Assembly para c6digo de 
m^quina. Aqui, urn Assembler para os usuarios do TRS-Color. 


PERIFERICOS ^^^0^^^ 

joystick 6 urn sistema de controle vers^til ^_^^^^^^^^^^^^^B 
e barato. Utilize-o. ^.^^^^^^^^^^^^^^^^^ I^H 




,^5 



ot progr 



t.»ts,io 



noom¥'% 



progI^^^^^'^ 



jo&os 



^COofeoDE" 



oo 
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